home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 November / Practical Internet November 2002.iso / pc / Software / Workshops / gg_setup.exe / #setuppath# / ggcss.exe / output.asp < prev    next >
Encoding:
Text File  |  2002-04-09  |  19.4 KB  |  581 lines
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!-- #include file="connex.asp" -->
  3. <html>
  4. <head>
  5. </head>
  6. <body text="#FFFFFF" onLoad="document.makeit.submit()">
  7. <%
  8. set rsConfig = Server.CreateObject("ADODB.Recordset")
  9. rsConfig.ActiveConnection = connex
  10. rsConfig.Source = "SELECT * FROM CONFIG"
  11. rsConfig.CursorType = 0
  12. rsConfig.CursorLocation = 2
  13. rsConfig.LockType = 3
  14. rsConfig.Open()
  15. rsConfig_numRows = 0
  16. REDIR="login.asp"
  17. On Error Resume Next
  18. REG_KEY=rsConfig.Fields.Item("USR_KEY").Value
  19. FRST_NAME=rsConfig.Fields.Item("F_NAME").Value
  20. LST_NAME=rsConfig.Fields.Item("L_NAME").Value
  21. FULL_NME=LST_NAME&FRST_NAME
  22. NME=StrReverse(UCase(FULL_NME))
  23. NUM=Len(NME)
  24. Set LetrChk = NEW RegExp
  25. LetrChk.Pattern = "A" 
  26. LetrChk.Global = True
  27. S1 = LetrChk.Replace(NME, "18"*NUM)
  28. SET LetrChk=Nothing
  29. Set LetrChk = NEW RegExp
  30. LetrChk.Pattern = "B" 
  31. LetrChk.Global = True
  32. S2 = LetrChk.Replace(S1, "26"*NUM)
  33. SET LetrChk=Nothing
  34. Set LetrChk = NEW RegExp
  35. LetrChk.Pattern = "C" 
  36. LetrChk.Global = True
  37. S3 = LetrChk.Replace(S2, "62"*NUM)
  38. SET LetrChk=Nothing
  39. Set LetrChk = NEW RegExp
  40. LetrChk.Pattern = "D" 
  41. LetrChk.Global = True
  42. S4 = LetrChk.Replace(S3, "444"*NUM)
  43. SET LetrChk=Nothing
  44. Set LetrChk = NEW RegExp
  45. LetrChk.Pattern = "E" 
  46. LetrChk.Global = True
  47. S5 = LetrChk.Replace(S4, "22"*NUM)
  48. SET LetrChk=Nothing
  49. Set LetrChk = NEW RegExp
  50. LetrChk.Pattern = "F" 
  51. LetrChk.Global = True
  52. S6 = LetrChk.Replace(S5, "64"*NUM)
  53. SET LetrChk=Nothing
  54. Set LetrChk = NEW RegExp
  55. LetrChk.Pattern = "G" 
  56. LetrChk.Global = True
  57. S7 = LetrChk.Replace(S6, "280"*NUM)
  58. SET LetrChk=Nothing
  59. Set LetrChk = NEW RegExp
  60. LetrChk.Pattern = "H" 
  61. LetrChk.Global = True
  62. S8 = LetrChk.Replace(S7, "668"*NUM)
  63. SET LetrChk=Nothing
  64. Set LetrChk = NEW RegExp
  65. LetrChk.Pattern = "I" 
  66. LetrChk.Global = True
  67. S9 = LetrChk.Replace(S8, "204"*NUM)
  68. SET LetrChk=Nothing
  69. Set LetrChk = NEW RegExp
  70. LetrChk.Pattern = "J" 
  71. LetrChk.Global = True
  72. S10 = LetrChk.Replace(S9, "842"*NUM)
  73. SET LetrChk=Nothing
  74. Set LetrChk = NEW RegExp
  75. LetrChk.Pattern = "K" 
  76. LetrChk.Global = True
  77. S11 = LetrChk.Replace(S10, "864"*NUM)
  78. SET LetrChk=Nothing
  79. Set LetrChk = NEW RegExp
  80. LetrChk.Pattern = "L" 
  81. LetrChk.Global = True
  82. S12 = LetrChk.Replace(S11, "324"*NUM)
  83. SET LetrChk=Nothing
  84. Set LetrChk = NEW RegExp
  85. LetrChk.Pattern = "M" 
  86. LetrChk.Global = True
  87. S13 = LetrChk.Replace(S12, "226"*NUM)
  88. SET LetrChk=Nothing
  89. Set LetrChk = NEW RegExp
  90. LetrChk.Pattern = "N" 
  91. LetrChk.Global = True
  92. S14 = LetrChk.Replace(S13, "861"*NUM)
  93. SET LetrChk=Nothing
  94. Set LetrChk = NEW RegExp
  95. LetrChk.Pattern = "O" 
  96. LetrChk.Global = True
  97. S15 = LetrChk.Replace(S14, "604"*NUM)
  98. SET LetrChk=Nothing
  99. Set LetrChk = NEW RegExp
  100. LetrChk.Pattern = "P" 
  101. LetrChk.Global = True
  102. S16 = LetrChk.Replace(S15, "60"*NUM)
  103. SET LetrChk=Nothing
  104. Set LetrChk = NEW RegExp
  105. LetrChk.Pattern = "Q" 
  106. LetrChk.Global = True
  107. S17 = LetrChk.Replace(S16, "86"*NUM)
  108. SET LetrChk=Nothing
  109. Set LetrChk = NEW RegExp
  110. LetrChk.Pattern = "R" 
  111. LetrChk.Global = True
  112. S18 = LetrChk.Replace(S17, "680"*NUM)
  113. SET LetrChk=Nothing
  114. Set LetrChk = NEW RegExp
  115. LetrChk.Pattern = "S" 
  116. LetrChk.Global = True
  117. S19 = LetrChk.Replace(S18, "246"*NUM)
  118. SET LetrChk=Nothing
  119. Set LetrChk = NEW RegExp
  120. LetrChk.Pattern = "T" 
  121. LetrChk.Global = True
  122. S20 = LetrChk.Replace(S19, "482"*NUM)
  123. SET LetrChk=Nothing
  124. Set LetrChk = NEW RegExp
  125. LetrChk.Pattern = "U" 
  126. LetrChk.Global = True
  127. S21 = LetrChk.Replace(S20, "44"*NUM)
  128. SET LetrChk=Nothing
  129. Set LetrChk = NEW RegExp
  130. LetrChk.Pattern = "V" 
  131. LetrChk.Global = True
  132. S22 = LetrChk.Replace(S21, "642"*NUM)
  133. SET LetrChk=Nothing
  134. Set LetrChk = NEW RegExp
  135. LetrChk.Pattern = "W" 
  136. LetrChk.Global = True
  137. S23 = LetrChk.Replace(S22, "668"*NUM)
  138. SET LetrChk=Nothing
  139. Set LetrChk = NEW RegExp
  140. LetrChk.Pattern = "X" 
  141. LetrChk.Global = True
  142. S24 = LetrChk.Replace(S23, "884"*NUM)
  143. SET LetrChk=Nothing
  144. Set LetrChk = NEW RegExp
  145. LetrChk.Pattern = "Y" 
  146. LetrChk.Global = True
  147. S25 = LetrChk.Replace(S24, "208"*NUM)
  148. SET LetrChk=Nothing
  149. Set LetrChk = NEW RegExp
  150. LetrChk.Pattern = "Z" 
  151. LetrChk.Global = True
  152. OUTPUT = LetrChk.Replace(S25, "820"*NUM)
  153. SET LetrChk=Nothing
  154. KEYLEN=Len(OUTPUT)
  155. If KEYLEN<20 Then
  156. KEYLEN=Len(OUTPUT)*2
  157. Else
  158. KEYLEN=KEYLEN
  159. End If
  160. If KEYLEN>40 Then
  161. KEYLEN=40
  162. Else
  163. KEYLEN=KEYLEN
  164. End If
  165. DIVKEY=KEYLEN/4
  166. KEYNUMA=Round(DIVKEY)
  167. KEYNUM=KEYNUMA-1
  168. SET1=Left(OUTPUT, KEYNUM)
  169. SET2A=Left(OUTPUT, KEYNUM*2)
  170. SET2=Right(SET2A, KEYNUM)
  171. SET3A=Left(OUTPUT, KEYNUM*3)
  172. SET3=Right(SET3A, KEYNUM)
  173. SET4A=Left(OUTPUT, KEYNUM*4)
  174. SET4=Right(SET4A, KEYNUM)
  175. STATICKEY=SET1&"-"&SET2&"-"&SET3&"-"&SET4
  176. KEYCHECK=StrComp(STATICKEY, REG_KEY, VBBinaryCompare)
  177. %>
  178. <%
  179. If KEYCHECK<>0 Then
  180. Response.Write"<form method='POST' name='makeit' action='makecss_demo.asp'>"
  181. 'Response.Write"KeyCheck is demo"
  182. Else If KEYCHECK=0 Then
  183. Response.Write"<form method='POST' name='makeit' action='makecss.asp'>"
  184. 'Response.Write"KeyCheck went ok"
  185. End If
  186. End If
  187. 'If Err <> 0 Then
  188. 'Response.Redirect(REDIR)
  189. 'End If
  190. rsConfig.Close()
  191. %>
  192. <input type="hidden" name="RETURNTO" value="<%=Request.Querystring("RETURNTO")%>">
  193. <%
  194. Set rsText = Server.CreateObject("ADODB.Recordset")
  195. rsText.ActiveConnection = connex
  196. rsText.Open "SELECT * FROM CSS WHERE ID = 1"
  197. %>
  198.   <input type="hidden" name="F_T_COLOR" value="<%=rsText("COLOR")%>">
  199.   <input type="hidden" name="F_T_ALIGN" value="<%=rsText("ALIGN")%>">
  200.   <input type="hidden" name="F_T_SIZE" value="<%=rsText("SIZE")%>">
  201.   <input type="hidden" name="F_T_FONT" value="<%=rsText("FONT")%>">
  202. <%
  203. If rsText("BOLD") = TRUE Then
  204. Response.Write "<input type='hidden' name='F_T_BOLD' value='bold'>"
  205. Else
  206. Response.Write "<input type='hidden' name='F_T_BOLD' value='normal'>"
  207. End If
  208. If rsText("UNDERLINE") = TRUE Then
  209. Response.Write "<input type='hidden' name='F_T_UNDERLINE' value='underline'>"
  210. Else
  211. Response.Write "<input type='hidden' name='F_T_UNDERLINE' value='none'>"
  212. End If
  213. If rsText("ITALIC") = TRUE Then
  214. Response.Write "<input type='hidden' name='F_T_ITALIC' value='italic'>"
  215. Else
  216. Response.Write "<input type='hidden' name='F_T_ITALIC' value='normal'>"
  217. End If
  218. rsText.Close
  219. Set rsText = Nothing
  220. %>
  221. <%
  222. Set rsFields = Server.CreateObject("ADODB.Recordset")
  223. rsFields.ActiveConnection = connex
  224. rsFields.Open "SELECT * FROM CSS WHERE ID = 2"
  225. %>
  226.   <input type="hidden" name="F_F_SIZE" value="<%=rsFields("SIZE")%>">
  227.   <input type="hidden" name="F_F_STYLE" value="<%=rsFields("BORDER_STYLE")%>">
  228.   <input type="hidden" name="F_F_BORDERCOLOR" value="<%=rsFields("BORDER_COLOR")%>">
  229.   <input type="hidden" name="F_F_BGCOLOR" value="<%=rsFields("BG_COLOR")%>">
  230.   <input type="hidden" name="F_F_COLOR" value="<%=rsFields("COLOR")%>">
  231.   <input type="hidden" name="F_F_FSIZE" value="<%=rsFields("FONT_SIZE")%>">
  232. <%
  233. If rsFields("BOLD") = TRUE Then
  234. Response.Write "<input type='hidden' name='F_F_BOLD' value='bold'>"
  235. Else
  236. Response.Write "<input type='hidden' name='F_F_BOLD' value='normal'>"
  237. End If
  238. If rsFields("UNDERLINE") = TRUE Then
  239. Response.Write "<input type='hidden' name='F_F_UNDERLINE' value='underline'>"
  240. Else
  241. Response.Write "<input type='hidden' name='F_F_UNDERLINE' value='none'>"
  242. End If
  243. If rsFields("ITALIC") = TRUE Then
  244. Response.Write "<input type='hidden' name='F_F_ITALIC' value='italic'>"
  245. Else
  246. Response.Write "<input type='hidden' name='F_F_ITALIC' value='normal'>"
  247. End If
  248. rsFields.Close
  249. Set rsFields = Nothing
  250. %>
  251. <%
  252. Set rsButtons = Server.CreateObject("ADODB.Recordset")
  253. rsButtons.ActiveConnection = connex
  254. rsButtons.Open "SELECT * FROM CSS WHERE ID = 3"
  255. %>
  256.   <input type="hidden" name="F_B_SIZE" value="<%=rsButtons("SIZE")%>">
  257.   <input type="hidden" name="F_B_STYLE" value="<%=rsButtons("BORDER_STYLE")%>">
  258.   <input type="hidden" name="F_B_BORDERCOLOR" value="<%=rsButtons("BORDER_COLOR")%>">
  259.   <input type="hidden" name="F_B_BGCOLOR" value="<%=rsButtons("BG_COLOR")%>">
  260.   <input type="hidden" name="F_B_COLOR" value="<%=rsButtons("COLOR")%>">
  261.   <input type="hidden" name="F_B_FSIZE" value="<%=rsButtons("FONT_SIZE")%>">
  262. <%
  263. If rsButtons("BOLD") = TRUE Then
  264. Response.Write "<input type='hidden' name='F_B_BOLD' value='bold'>"
  265. Else
  266. Response.Write "<input type='hidden' name='F_B_BOLD' value='normal'>"
  267. End If
  268. If rsButtons("UNDERLINE") = TRUE Then
  269. Response.Write "<input type='hidden' name='F_B_UNDERLINE' value='underline'>"
  270. Else
  271. Response.Write "<input type='hidden' name='F_B_UNDERLINE' value='none'>"
  272. End If
  273. If rsButtons("ITALIC") = TRUE Then
  274. Response.Write "<input type='hidden' name='F_B_ITALIC' value='italic'>"
  275. Else
  276. Response.Write "<input type='hidden' name='F_B_ITALIC' value='normal'>"
  277. End If
  278. rsButtons.Close
  279. Set rsButtons = Nothing
  280. %>
  281. <%
  282. Set rsBody = Server.CreateObject("ADODB.Recordset")
  283. rsBody.ActiveConnection = connex
  284. rsBody.Open "SELECT * FROM CSS WHERE ID = 4"
  285. %>
  286.   <input type="hidden" name="F_BGCOLOR" value="<%=rsBody("BG_COLOR")%>">
  287.   <input type="hidden" name="F_ARROW" value="<%=rsBody("ARROW_COLOR")%>">
  288.   <input type="hidden" name="F_HIGHLIGHT" value="<%=rsBody("HIGHLIGHT_COLOR")%>">
  289.   <input type="hidden" name="F_FACE" value="<%=rsBody("FACE_COLOR")%>">
  290.   <input type="hidden" name="F_3DLIGHT" value="<%=rsBody("3D_LIGHT_COLOR")%>">
  291.   <input type="hidden" name="F_DARKSHADOW" value="<%=rsBody("DARK_SHADOW_COLOR")%>">
  292.   <input type="hidden" name="F_SHADOW" value="<%=rsBody("SHADOW_COLOR")%>">
  293. <%
  294. rsBody.Close
  295. Set rsBody = Nothing
  296. %>
  297. <%
  298. Set rsLinks = Server.CreateObject("ADODB.Recordset")
  299. rsLinks.ActiveConnection = connex
  300. rsLinks.Open "SELECT * FROM CSS WHERE ID = 5"
  301. %>
  302.   <input type="hidden" name="LONE_LINK" value="<%=rsLinks("A_LINK")%>">
  303.   <input type="hidden" name="LONE_SIZE" value="<%=rsLinks("SIZE")%>">
  304.   <input type="hidden" name="LONE_FONT" value="<%=rsLinks("FONT")%>">
  305. <%
  306. If rsLinks("BOLD") = TRUE Then
  307. Response.Write "<input type='hidden' name='LONE_BOLD' value='bold'>"
  308. Else
  309. Response.Write "<input type='hidden' name='LONE_BOLD' value='normal'>"
  310. End If
  311. If rsLinks("UNDERLINE") = TRUE Then
  312. Response.Write "<input type='hidden' name='LONE_UNDERLINE' value='underline'>"
  313. Else
  314. Response.Write "<input type='hidden' name='LONE_UNDERLINE' value='none'>"
  315. End If
  316. If rsLinks("ITALIC") = TRUE Then
  317. Response.Write "<input type='hidden' name='LONE_ITALIC' value='italic'>"
  318. Else
  319. Response.Write "<input type='hidden' name='LONE_ITALIC' value='normal'>"
  320. End If
  321. rsLinks.Close
  322. Set rsLinks = Nothing
  323. %>
  324. <%
  325. Set rsLtwo = Server.CreateObject("ADODB.Recordset")
  326. rsLtwo.ActiveConnection = connex
  327. rsLtwo.Open "SELECT * FROM CSS WHERE ID = 6"
  328. %>
  329.   <input type="hidden" name="LTWO_ACTIVE" value="<%=rsLtwo("A_ACTIVE")%>">
  330.   <input type="hidden" name="LTWO_SIZE" value="<%=rsLtwo("SIZE")%>">
  331.   <input type="hidden" name="LTWO_FONT" value="<%=rsLtwo("FONT")%>">
  332. <%
  333. If rsLtwo("BOLD") = TRUE Then
  334. Response.Write "<input type='hidden' name='LTWO_BOLD' value='bold'>"
  335. Else
  336. Response.Write "<input type='hidden' name='LTWO_BOLD' value='normal'>"
  337. End If
  338. If rsLtwo("UNDERLINE") = TRUE Then
  339. Response.Write "<input type='hidden' name='LTWO_UNDERLINE' value='underline'>"
  340. Else
  341. Response.Write "<input type='hidden' name='LTWO_UNDERLINE' value='none'>"
  342. End If
  343. If rsLtwo("ITALIC") = TRUE Then
  344. Response.Write "<input type='hidden' name='LTWO_ITALIC' value='italic'>"
  345. Else
  346. Response.Write "<input type='hidden' name='LTWO_ITALIC' value='normal'>"
  347. End If
  348. rsLtwo.Close
  349. Set rsLtwo = Nothing
  350. %>
  351. <%
  352. Set rsLtre = Server.CreateObject("ADODB.Recordset")
  353. rsLtre.ActiveConnection = connex
  354. rsLtre.Open "SELECT * FROM CSS WHERE ID = 7"
  355. %>
  356.   <input type="hidden" name="LTRE_HOVER" value="<%=rsLtre("A_HOVER")%>">
  357.   <input type="hidden" name="LTRE_SIZE" value="<%=rsLtre("SIZE")%>">
  358.   <input type="hidden" name="LTRE_FONT" value="<%=rsLtre("FONT")%>">
  359. <%
  360. If rsLtre("BOLD") = TRUE Then
  361. Response.Write "<input type='hidden' name='LTRE_BOLD' value='bold'>"
  362. Else
  363. Response.Write "<input type='hidden' name='LTRE_BOLD' value='normal'>"
  364. End If
  365. If rsLtre("UNDERLINE") = TRUE Then
  366. Response.Write "<input type='hidden' name='LTRE_UNDERLINE' value='underline'>"
  367. Else
  368. Response.Write "<input type='hidden' name='LTRE_UNDERLINE' value='none'>"
  369. End If
  370. If rsLtre("ITALIC") = TRUE Then
  371. Response.Write "<input type='hidden' name='LTRE_ITALIC' value='italic'>"
  372. Else
  373. Response.Write "<input type='hidden' name='LTRE_ITALIC' value='normal'>"
  374. End If
  375. rsLtre.Close
  376. Set rsLtre = Nothing
  377. %>
  378. <%
  379. Set rsLfor = Server.CreateObject("ADODB.Recordset")
  380. rsLfor.ActiveConnection = connex
  381. rsLfor.Open "SELECT * FROM CSS WHERE ID = 8"
  382. %>
  383.   <input type="hidden" name="LFOR_VISITED" value="<%=rsLfor("A_VISITED")%>">
  384.   <input type="hidden" name="LFOR_SIZE" value="<%=rsLfor("SIZE")%>">
  385.   <input type="hidden" name="LFOR_FONT" value="<%=rsLfor("FONT")%>">
  386. <%
  387. If rsLfor("BOLD") = TRUE Then
  388. Response.Write "<input type='hidden' name='LFOR_BOLD' value='bold'>"
  389. Else
  390. Response.Write "<input type='hidden' name='LFOR_BOLD' value='normal'>"
  391. End If
  392. If rsLfor("UNDERLINE") = TRUE Then
  393. Response.Write "<input type='hidden' name='LFOR_UNDERLINE' value='underline'>"
  394. Else
  395. Response.Write "<input type='hidden' name='LFOR_UNDERLINE' value='none'>"
  396. End If
  397. If rsLfor("ITALIC") = TRUE Then
  398. Response.Write "<input type='hidden' name='LFOR_ITALIC' value='italic'>"
  399. Else
  400. Response.Write "<input type='hidden' name='LFOR_ITALIC' value='normal'>"
  401. End If
  402. rsLfor.Close
  403. Set rsLfor = Nothing
  404. %>
  405. <%
  406. Set rsH1 = Server.CreateObject("ADODB.Recordset")
  407. rsH1.ActiveConnection = connex
  408. rsH1.Open "SELECT * FROM CSS WHERE ID = 9"
  409. %>
  410.   <input type="hidden" name="H1_INDENT" value="<%=rsH1("INDENT")%>">
  411.   <input type="hidden" name="H1_COLOR" value="<%=rsH1("COLOR")%>">
  412.   <input type="hidden" name="H1_ALIGN" value="<%=rsH1("ALIGN")%>">
  413.   <input type="hidden" name="H1_SIZE" value="<%=rsH1("SIZE")%>">
  414.   <input type="hidden" name="H1_FONT" value="<%=rsH1("FONT")%>">
  415. <%
  416. If rsH1("BOLD") = TRUE Then
  417. Response.Write "<input type='hidden' name='H1_BOLD' value='bold'>"
  418. Else
  419. Response.Write "<input type='hidden' name='H1_BOLD' value='normal'>"
  420. End If
  421. If rsH1("UNDERLINE") = TRUE Then
  422. Response.Write "<input type='hidden' name='H1_UNDERLINE' value='underline'>"
  423. Else
  424. Response.Write "<input type='hidden' name='H1_UNDERLINE' value='none'>"
  425. End If
  426. If rsH1("ITALIC") = TRUE Then
  427. Response.Write "<input type='hidden' name='H1_ITALIC' value='italic'>"
  428. Else
  429. Response.Write "<input type='hidden' name='H1_ITALIC' value='normal'>"
  430. End If
  431. rsH1.Close
  432. Set rsH1 = Nothing
  433. %>
  434. <%
  435. Set rsH2 = Server.CreateObject("ADODB.Recordset")
  436. rsH2.ActiveConnection = connex
  437. rsH2.Open "SELECT * FROM CSS WHERE ID = 10"
  438. %>
  439.   <input type="hidden" name="H2_INDENT" value="<%=rsH2("INDENT")%>">
  440.   <input type="hidden" name="H2_COLOR" value="<%=rsH2("COLOR")%>">
  441.   <input type="hidden" name="H2_ALIGN" value="<%=rsH2("ALIGN")%>">
  442.   <input type="hidden" name="H2_SIZE" value="<%=rsH2("SIZE")%>">
  443.   <input type="hidden" name="H2_FONT" value="<%=rsH2("FONT")%>">
  444. <%
  445. If rsH2("BOLD") = TRUE Then
  446. Response.Write "<input type='hidden' name='H2_BOLD' value='bold'>"
  447. Else
  448. Response.Write "<input type='hidden' name='H2_BOLD' value='normal'>"
  449. End If
  450. If rsH2("UNDERLINE") = TRUE Then
  451. Response.Write "<input type='hidden' name='H2_UNDERLINE' value='underline'>"
  452. Else
  453. Response.Write "<input type='hidden' name='H2_UNDERLINE' value='none'>"
  454. End If
  455. If rsH2("ITALIC") = TRUE Then
  456. Response.Write "<input type='hidden' name='H2_ITALIC' value='italic'>"
  457. Else
  458. Response.Write "<input type='hidden' name='H2_ITALIC' value='normal'>"
  459. End If
  460. rsH2.Close
  461. Set rsH2 = Nothing
  462. %>
  463. <%
  464. Set rsH3 = Server.CreateObject("ADODB.Recordset")
  465. rsH3.ActiveConnection = connex
  466. rsH3.Open "SELECT * FROM CSS WHERE ID = 11"
  467. %>
  468.   <input type="hidden" name="H3_INDENT" value="<%=rsH3("INDENT")%>">
  469.   <input type="hidden" name="H3_COLOR" value="<%=rsH3("COLOR")%>">
  470.   <input type="hidden" name="H3_ALIGN" value="<%=rsH3("ALIGN")%>">
  471.   <input type="hidden" name="H3_SIZE" value="<%=rsH3("SIZE")%>">
  472.   <input type="hidden" name="H3_FONT" value="<%=rsH3("FONT")%>">
  473. <%
  474. If rsH3("BOLD") = TRUE Then
  475. Response.Write "<input type='hidden' name='H3_BOLD' value='bold'>"
  476. Else
  477. Response.Write "<input type='hidden' name='H3_BOLD' value='normal'>"
  478. End If
  479. If rsH3("UNDERLINE") = TRUE Then
  480. Response.Write "<input type='hidden' name='H3_UNDERLINE' value='underline'>"
  481. Else
  482. Response.Write "<input type='hidden' name='H3_UNDERLINE' value='none'>"
  483. End If
  484. If rsH3("ITALIC") = TRUE Then
  485. Response.Write "<input type='hidden' name='H3_ITALIC' value='italic'>"
  486. Else
  487. Response.Write "<input type='hidden' name='H3_ITALIC' value='normal'>"
  488. End If
  489. rsH3.Close
  490. Set rsH3 = Nothing
  491. %>
  492. <%
  493. Set rsH4 = Server.CreateObject("ADODB.Recordset")
  494. rsH4.ActiveConnection = connex
  495. rsH4.Open "SELECT * FROM CSS WHERE ID = 12"
  496. %>
  497.   <input type="hidden" name="H4_INDENT" value="<%=rsH4("INDENT")%>">
  498.   <input type="hidden" name="H4_COLOR" value="<%=rsH4("COLOR")%>">
  499.   <input type="hidden" name="H4_ALIGN" value="<%=rsH4("ALIGN")%>">
  500.   <input type="hidden" name="H4_SIZE" value="<%=rsH4("SIZE")%>">
  501.   <input type="hidden" name="H4_FONT" value="<%=rsH4("FONT")%>">
  502. <%
  503. If rsH4("BOLD") = TRUE Then
  504. Response.Write "<input type='hidden' name='H4_BOLD' value='bold'>"
  505. Else
  506. Response.Write "<input type='hidden' name='H4_BOLD' value='normal'>"
  507. End If
  508. If rsH4("UNDERLINE") = TRUE Then
  509. Response.Write "<input type='hidden' name='H4_UNDERLINE' value='underline'>"
  510. Else
  511. Response.Write "<input type='hidden' name='H4_UNDERLINE' value='none'>"
  512. End If
  513. If rsH4("ITALIC") = TRUE Then
  514. Response.Write "<input type='hidden' name='H4_ITALIC' value='italic'>"
  515. Else
  516. Response.Write "<input type='hidden' name='H4_ITALIC' value='normal'>"
  517. End If
  518. rsH4.Close
  519. Set rsH4 = Nothing
  520. %>
  521. <%
  522. Set rsH5 = Server.CreateObject("ADODB.Recordset")
  523. rsH5.ActiveConnection = connex
  524. rsH5.Open "SELECT * FROM CSS WHERE ID = 13"
  525. %>
  526.   <input type="hidden" name="H5_INDENT" value="<%=rsH5("INDENT")%>">
  527.   <input type="hidden" name="H5_COLOR" value="<%=rsH5("COLOR")%>">
  528.   <input type="hidden" name="H5_ALIGN" value="<%=rsH5("ALIGN")%>">
  529.   <input type="hidden" name="H5_SIZE" value="<%=rsH5("SIZE")%>">
  530.   <input type="hidden" name="H5_FONT" value="<%=rsH5("FONT")%>">
  531. <%
  532. If rsH5("BOLD") = TRUE Then
  533. Response.Write "<input type='hidden' name='H5_BOLD' value='bold'>"
  534. Else
  535. Response.Write "<input type='hidden' name='H5_BOLD' value='normal'>"
  536. End If
  537. If rsH5("UNDERLINE") = TRUE Then
  538. Response.Write "<input type='hidden' name='H5_UNDERLINE' value='underline'>"
  539. Else
  540. Response.Write "<input type='hidden' name='H5_UNDERLINE' value='none'>"
  541. End If
  542. If rsH5("ITALIC") = TRUE Then
  543. Response.Write "<input type='hidden' name='H5_ITALIC' value='italic'>"
  544. Else
  545. Response.Write "<input type='hidden' name='H5_ITALIC' value='normal'>"
  546. End If
  547. rsH5.Close
  548. Set rsH5 = Nothing
  549. %>
  550. <%
  551. Set rsH6 = Server.CreateObject("ADODB.Recordset")
  552. rsH6.ActiveConnection = connex
  553. rsH6.Open "SELECT * FROM CSS WHERE ID = 14"
  554. %>
  555.   <input type="hidden" name="H6_INDENT" value="<%=rsH6("INDENT")%>">
  556.   <input type="hidden" name="H6_COLOR" value="<%=rsH6("COLOR")%>">
  557.   <input type="hidden" name="H6_ALIGN" value="<%=rsH6("ALIGN")%>">
  558.   <input type="hidden" name="H6_SIZE" value="<%=rsH6("SIZE")%>">
  559.   <input type="hidden" name="H6_FONT" value="<%=rsH6("FONT")%>">
  560. <%
  561. If rsH6("BOLD") = TRUE Then
  562. Response.Write "<input type='hidden' name='H6_BOLD' value='bold'>"
  563. Else
  564. Response.Write "<input type='hidden' name='H6_BOLD' value='normal'>"
  565. End If
  566. If rsH6("UNDERLINE") = TRUE Then
  567. Response.Write "<input type='hidden' name='H6_UNDERLINE' value='underline'>"
  568. Else
  569. Response.Write "<input type='hidden' name='H6_UNDERLINE' value='none'>"
  570. End If
  571. If rsH6("ITALIC") = TRUE Then
  572. Response.Write "<input type='hidden' name='H6_ITALIC' value='italic'>"
  573. Else
  574. Response.Write "<input type='hidden' name='H6_ITALIC' value='normal'>"
  575. End If
  576. rsH6.Close
  577. Set rsH6 = Nothing
  578. %>
  579. </form>
  580. </body>
  581. </html>